home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 189 / 189.d81 / new charconv (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  483b  |  18 lines
  1. 20 dv=peek(186):ifgg=1then50
  2. 30 gg=1:load"char 7",dv,1
  3. 50 a1=14336:b1=51200
  4. 60 fork=b1tob1+2047:pokek,peek(a1):a1=a1+1:next
  5. 65 print"disk.....":poke198,0:wait198,1
  6. 70 fi$="ch7":goto1000
  7. 999 end
  8. 1000 sa=51200:rem *enter start address  here***
  9. 1002 ea=53248:rem *enter end address +1*****
  10. 1004 de=8
  11. 1006 rem  fi$="filename":rem*enter filename**********
  12. 1030 de=8:poke194,sa/256:poke193,sa-peek(194)*256
  13. 1040 poke175,ea/256:poke174,ea-peek(175)*256
  14. 1050 l=len(fi$)
  15. 1060 forp=1tol:poke1023+p,asc(mid$(fi$,p,1)):next
  16. 1070 poke187,0:poke188,4:poke183,l:poke186,dv:sys62954
  17. 4992 end
  18.